home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
ada_tutr.zip
/
TRITYPE.DUM
< prev
next >
Wrap
Text File
|
1991-03-25
|
219b
|
8 lines
-- Dummy solution for Outside Assignment 2
-- Edit to become your real solution.
separate (TRITEST)
function TRITYPE(LEN1, LEN2, LEN3 : in INTEGER) return TRIANGLE is
begin
return NOT_A_TRIANGLE;
end TRITYPE;